home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 November / Ahoy_Magazine_85-11_1985_Double_L.d64 / insta bug 64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  56 lines
  1. 10 sa=49152:print"[147]":poke53280,0:poke53281,6:poke646,1
  2. 15 print"     instant bug repellant installed    "
  3. 20 fori=100to148:zz=0:forj=1to8:reada:pokesa,a:sa=sa+1:zz=zz+a:nextj
  4. 30 reada:if zz=athen ck=ck+zz:next i:goto50
  5. 40 print" error in line #";i:end
  6. 50 if sa-ck=1377 then sys49152:new
  7. 100 data 169,90,141,2,3,169,192,141,907
  8. 101 data 3,3,160,0,185,37,192,240,820
  9. 102 data 6,32,210,255,200,208,245,169,1325
  10. 103 data 1,133,251,169,8,133,252,165,1112
  11. 104 data 0,141,167,2,96,18,32,73,529
  12. 105 data 78,83,84,65,78,84,32,66,570
  13. 106 data 85,71,32,82,69,80,69,76,564
  14. 107 data 76,69,78,84,32,13,0,40,392
  15. 108 data 104,170,104,168,104,76,131,164,1021
  16. 109 data 160,0,177,251,240,1,96,200,1125
  17. 110 data 177,251,240,1,96,104,104,76,1049
  18. 111 data 63,192,72,152,72,138,72,8,769
  19. 112 data 165,157,208,3,76,63,192,169,1033
  20. 113 data 1,133,251,169,8,133,252,169,1116
  21. 114 data 0,133,254,133,255,165,20,133,1093
  22. 115 data 254,165,21,133,255,32,72,192,1124
  23. 116 data 160,2,177,251,197,254,240,6,1287
  24. 117 data 32,105,193,24,144,239,200,177,1114
  25. 118 data 251,197,255,240,6,32,105,193,1279
  26. 119 data 24,144,226,169,1,133,254,169,1120
  27. 120 data 0,133,255,165,251,24,105,4,937
  28. 121 data 133,251,165,252,105,0,133,252,1291
  29. 122 data 169,0,160,0,169,0,141,167,806
  30. 123 data 2,240,38,133,255,177,251,208,1304
  31. 124 data 27,165,255,41,240,74,74,74,950
  32. 125 data 74,24,105,129,141,2,4,165,644
  33. 126 data 255,41,15,24,105,129,141,3,713
  34. 127 data 4,76,15,193,230,254,32,84,888
  35. 128 data 193,165,255,160,0,170,177,251,1371
  36. 129 data 201,34,208,8,173,167,2,73,866
  37. 130 data 255,141,167,2,173,167,2,208,1115
  38. 131 data 12,177,251,201,32,208,6,198,1085
  39. 132 data 254,138,76,187,192,138,113,251,1349
  40. 133 data 69,254,170,138,76,187,192,169,1255
  41. 134 data 160,141,0,4,169,186,141,1,802
  42. 135 data 4,160,0,185,127,193,240,6,915
  43. 136 data 153,4,4,200,208,245,234,165,1213
  44. 137 data 20,133,99,165,21,133,98,162,831
  45. 138 data 144,56,32,73,188,32,221,189,935
  46. 139 data 162,0,189,1,1,240,10,41,644
  47. 140 data 63,9,128,157,12,4,232,208,813
  48. 141 data 241,169,160,157,12,4,32,91,866
  49. 142 data 193,76,63,192,230,251,208,2,1215
  50. 143 data 230,252,96,173,134,2,160,0,1047
  51. 144 data 153,0,216,200,192,21,144,248,1174
  52. 145 data 96,160,0,177,251,170,32,84,970
  53. 146 data 193,177,251,133,252,138,133,251,1528
  54. 147 data 96,0,0,0,0,0,0,160,256
  55. 148 data 140,137,142,133,160,163,160,0,1035
  56.